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OPAL est un programme écrit en ALGOL 510 destiné à disposer dans une surface 
un certain nombre de figures simples (rectangles, losanges, cercles, ellipses). 


Cette surface sera assimilée à un ensemble de points ne pouvant prendre que 
deux états possibles (ex: blanc ou noir). 


L'inclusion des figures sera obtenue par changement d'état des points à 
l'intérieur de ces figures. 


I - Introduction des données. 
En début de programme les données suivantes seront introduites sur M.A.E. 


- un nombre (NB) destiné à "lancer" la procédure aléatoire, 
- le nombre đe lignes (IM), de colonnes (JM) de la surface totale, 
- le nombre de rectangles (NREC), de losanges (NLOS), de cercles (NCER), et 
d'ellipses (NELL) à y inclure. 
/ PROG 012 O21/ 


II - Calcul des paramètres. 


En ALGOL 510, la déclaration d'un tableau de dimension assez grande étant 
impossible (par manque de place en mémoire), la surface totale ne sera pas 
représentée en mémoire. | | 


Dans un premier temps, les paramètres de toutes les figures à inclure vont 
être calculés et stockés dans les tableaux REC, LOS, CER, ELL. 


Ces paramètres sont calculés aléatoirement. Une seule règle générale est 

fixée : l'intersection de deux figures ne peut être 

- que vide (figures disjointes), 

- qu'un point, 

- qu'une surface. 

En aucun cas elle ne peut être un segment de droite, ceci afin de préserver la 
perception des figures. 


Les procédures utilisées sont : 
- AL, procédure aléatoire classique, pouvant relancer le programme, 81 les 
paramètres ne peuvent être trouvés. 
/ PROG 100 / 
- SURI; SURJ qui indiquent si les abcisses ou les ordonnées des paramètres 
© trouvés ont déjà été utilisées. 
/ PROG 200 300 / 
- SURLOS qui indique si le paramètre trouvé se situe sur un périmètre de 
losanges. / PROG koo / 


Pour chaque rectangle on calculera deux abcisses et deux ordonnées, pour 
chaque losange et pour chaque cercle une abcisse, une ordonnée et un rayon, 
et pour chaque eliipse une abcisse, une ordonnée, un grand axe et un petit 
axe. / PROG 500 600 του 800 / 


Les paramètres trouvés sont ensuite imprimés sur M.A.E. 
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III - Sortie de la figure 


La surface totale est divisée en blocs de 80 colonnes sur le nombre total de 
lignes. 


Ces blocs seront extraits un à un. La fin de chaque bloc sera signalée par 
l'impression sur M.A.E. du libellé FB et l'arrêt du calculateur. 


/ PROG 900 / 


Les blocs peuvent être 


— imprimés sur M.A.E. CLE(L), sur 80 caractères, les deux états étants X et 
espace . 


/FIG 1 / 


- perforés CLE(3), sur 80 caractères avec ces mêmes états et adjonction en fin 
de ligne du caractère 2. La procédure standard PERF rajoutant en fin d'exécu- 
tion 3 espaces et un RC, le ruban aura comme aspect en fin de ligne : 

/ 80 caractères / / 3 espaces RC / / Z / / 3 espaces RC / 


en mn à ae, 
ενος 


Ce ruban a la propriété de pouvoir être lu directement par une FLEXO (CODE CAB) 
déconnectée. En position "minuscules" les correspondances seront : 


X (CAE) esee (ο espace (CAE) -meme … " 
πο (CAE) nr: Z (CAE) -—-—5 RC 
/ FIG 2 / 


-- ιν. παρα; ----. μυ. dma μ.μ. AR er ee οτι. ο... --- -- ρθω 


Sur M.A.E CAE le rapport hauteur sur longueur d'un caractère étant voisin de 
5/3 (H = 0,425 cm ; L = 0,25 cm), il en résulte une transformation de la figure. 


Dans la figure 1 “l'ellipse" provient de l'équation d'un cercle et le "cercle" 
de l'équation d'une ellipse de rapport grand axe sur petit axe voisin de 5/3 


(19/11). 


Sur FLEXO CAB ce rapport est voisin de 2/1 ( H= 0,42 cm ; L = 0,21 cm). 
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Ce programme écrit en langage externe CAB permet de lire un ruban CAE. Cette 
lecture ne posera aucun problème car le contrôle d'imparité est 19 même (16 
nombre de perforations est impair). 


D'autre part 11 permet de faire correspondre à deux lignes de ruban CAE une 
ligne sur FLEXO, ce qui conservera les dimensions exactes des figures en rame- 
nant le rapport hauteur sur longueur des caractères voisin de 1/1. 


Pour cela on utilisera les caractères 
(EXP)? et espace pour la ligne haute 
(IND) et espace pour la ligne basse. 
ο 


/ FIG 3/ 
Description du programme 


1 Lecture du début du ruban jusqu'à la rencontre du caractère RC(CAB) = Z(CAE) ; 
ce qui fait perdre la première ligne mais évite de placer manuellement le ruban 
au début exact de la ligne. 

/ 1,4 à 1,6 / 


2 Introduction de la likne haute en piste 2,0, de la ligne basse en piste 3,0 
jusqu'à la rencontre du caractère RC{CAB) 


/ 1,7 ἃ 1,29 / 


3 Comparaison du nombre de caractères introduits dans les deux lignes. Le program- 
me s'arrête si ces deux nombres sont différents. 


/ 1,30 à 1,33 / 


tr” 


Recherche de l'adresse du dernier caractère non blanc de chaque ligne. La 
plus grande est conservée. / 1,35 à τν / 


2 Impression 
- pour la ligne haute (EXP)° puis espace arrière si ¥ (CAE) 
rien si espace (CAE) 
- pour la ligne basse (IND) si κ (CAE) 
° espace si espace (CAE) 
Jusqu'à l'adresse trouvée en (4) , puis RC et retour en (2). 


/ 1,57 à 1,74 / 


En position "VARIANTE" allumée, le contraire se prođuit, créant ainsi une 
image négative. 
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-= sr. 


001 
002 


100 
101 
102 
1 05 
104 
105 
106 
107 
108 


010 
011 
012 
013 
015 


020 
021 


050 
051 
052 
053 
054 


200 
201 
202 


300 
301 
3 02 


400 
401 
402 
403 
"08 
405 
406 
407 
4 08 
409 
410 
411 
412 
4k13 


H14 


060 
061 


DEB? 


x x 


as 


σε er 


ENTIM JM L, NB NAL, NLOS ,NREC,NCER NELL; 


ENT? PROC?! ALCN) ; 


ΙΡΕΡΙ 
"SI 


NB:=5*NB ; 
! NB ‘SUG! 


ENT! N 


1093 


tALU! 


ο 
# 


NB:=NB-CKB%1093)*1093 . 


ΝΑΙ. :=NAL +1 ; 


to! 


toi! 
FINAL: 


ΕΙΝ! DE LA PROCEDURE ALEATOIRE ; 


BEGIN : 


EXLCS!NB_IM υπ} 
L'ICLAV (ΝΒ, IM,JM) 


MAL ΞΟ; 
Liz 1 


NAL ? 


INF! 


Λι οἳ 


1000 
ΕΧΙ (6141000 ΑΙ.) ; 
CLE (7) 


"Αι ο] 
INPR ; 
"ALL! B 


AL: =NB-CNBSNDEN+1 ; 


ve Yo 


IMPR ; 


EXLCE! NREC_NLOS_NCER_NELL@) 
LICLAVCNREC,NLOS, NCER NELL) 


'DEB? 'ENT! TAB! LOS,(0:NLOS,1:3), , REC,CO:NREC, 1:4), , 


ALL! 
ΝΑΙ. :=0 
EGIN ; 


’ 


IMPR 


9 
/ 
9 
2 


FINAL 


” 


è 
’ 


CER,CO:NCER,1:3), , ELL,CO0:NELL,1:4), 


'BOO' 


'ENT' 


'BOO! NC,PN ; 


ἹΒΟΟῚ 
SURI 
"ου! 


ΤΒΟΩΊ 


"TAB! 


A,B,C,D, I,J K, M,T } 


PROC! SURI CN) ; 


IB. 


IB. CN), 


"PROC! SURJCN) ; 


ιο 


(Ν-2), 


SURJ:= ὐΒ.(Ν-22. 


"OU! JB. CN), 


‘Bon! 
ΤΡΕΒΙ 


τρου ! 


PROC! SURLOSCN, I,J) 3} 


του! 


tE 
‘out ΙΒ. 
18. CN+1 


TE 
του) JB, 


του! JB, SN+1), 


NT'ON ; 
(Ν-1}ι 
Ji 


NT' N; 
(Ν-1), 


ΕΝΤΙ LA,LR,LCI,LC2,COMP ; 


Ωμ. -ἶ 
ἸΟΕΒΊ LC1:=LOS, CCOMP,3),+2 ; 
LA:=1-L05, (COMP, 


PAST 1 


1}, 


JUS! N 


» 


IB.C1:1M),  ὑΒ.,(1:ωΜ}ι ; 


‘FAI! 


LC2:=LOS, (COMP,33,-2 


/ 


SI! IM ‘SUP! JM ?ALO' JM%10 *SIN' ΙΜ810 ; 


. 


0 


"OU! IB,CN+2),; 


του! JB.CN+2), } 


"ENT! N, 1,9 ; 


” 


} LB:=U-LOS, (CCOMP,27, ; 


FSI! LA+LB Τουρ! LCI ου! LA-LB 'SUP?' LCI 
του LB-LA ?SUP' LCI του! eLA-LB !SUP' LCI 
ALOT ALL’! FALSE 3; ` 
"SI" LA+LB ΙΝΕ LC2 "ΕΤ! LA-LB 'INF' LC2 
ΕΤ’ LB-LA INF! LC2 ἜΤ! ~LA-LB ΙΝΕ! LC2 
tALO! ΑΙ" FALSE 'SIN! 'ALL?’ TRUE ; 
FALSE : ΕΝ o 
SURLOS:= ‘FAUX! ; ALL! FSURLO ; 
TRUE : SURLOS:= VRAI! ; 
FSURLO : ‘FIN! DE SURLOS ; 
ρου] Ki=zl PAST 1 ωυςδ IM IFAI’ IB.CK).:='FAUX' 
ρου! K:=1 ‘PAS! 1 ‘US! JM ‘FAI! JB, (κ). 5! 
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F AUX! 


° 
2 
Ἢ 
Ρ 


? 


500 


811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
322 


teom? #% CALCUL DES PARAMETRES DES LOSANGES  #*% 
EXLCS!LOSANGESQ) ; EXEC, NLOS) ; IMPR ; 
ρου! K:=1 PAS! 1 JUS?! NLOS 'FAI' 
'DEB? LOSI : C:=AL(L*5-12)+6 ; 
A ZAL CIM=-2* C-6)+C+3 ;} 
B:<ALCJM-2#C-63)+C+3 ; 
SI? SURICA+C) ‘OU? SURICÇCA-C) ‘OU! SURI CA) 
του: SURJCB+C) OU’? SURJCB-C) ου!) SURYCB) 
tALO® PALL? LOSI ; 
IB.CAÏ,:=IB, CA+CI,:=I1B, CA-C) ,: 
JB. CB), :=JB. (B+C),:=0B, (B-C), = VRAI! ; 
LOS. CK,1),:=A ; LOS. CK,2),:=B ; LOS. CK,3),:=C ; 
EXE CH, A,B,C) 1 IMPR } ΕΙΝ) LOSANGES ; 


ve 


vs H I 


tCOM! OXX CALCUL DES PARAMETRES DES ELLIPSES *# 
EXLCEIELLIPSESG) ; EXEG NELL) ; ISPR ; 
POU? K:=1 "PAS? 1 'JUS' NELL 'FAI' 
ΙΡΕΒΙ ELLI : ς:-λεζτηίδ2-20}110 ; 
D:=ALCJM62-26)+10 ; 
AZAL (1Μ-ο CC+5 DD+C+5 : 
B:=ALCJE-2#(D+53))+D+5 ; 
SJ! SURICA+C) Ιου! SURIÇCA-C) "ου! SURJCB+D) 
‘OU! SURJCB+D) ALO?! ALL! ELLI ; 
IB., CA+C),:=1B.,. (4-0), : 
JB. (B+D), :=JB. (B-D), := ‘VRAI! 
ELL,CK,13,:=A ; ELL,CK,2),:=8 
ELL,CK,323,:=C ; ELL,.CK,4#),:2=D 
EXE CH, A,B,C,D) 1 IMPR ; FIN! ELLIPSES ; 


Ve Ὡς da 


CONT XX CALCUL DES PARAMETRES DES CERCLES XX } 
EXL(E!ICERCLESG) ; EXEC3,NCER)D ; IiPR } 
ρου: K:=1 ‘PAST 1 JUS! NCER ‘FAI! 
ἹΡΕΒῚ CERI : C':=ALC(L*#5-20)+10 ; 
Α:ΞΑΙ. CIM-2# CC+5))+C+5 / 
B ZAL (ὐμ-2 (C+5))+C+5 : 
στι SURICA+C) "ου! SURICA-C) ‘OU! SURJCB+C) 
ου! SURJCR=C) ALO’! 'ALL? CERI ; 
IB. CA+C),:=21IB, CA=-C),:= 
JB. (B+C), :2=JB. (B-C), := VRAI! ; 
CER, (CK,1),:5A ; CER,(K,2),:=B ; CER.CK,3),:=C 
EXE CH,A, B,C) ; IMPR ; ΕΓ! CERCLES ; 


we 


tCOM! «5: CALCUL DES PARAMETRES DES RECTANGLES ž¥%¥ 
EXLCE!RECTANGLESQ) ; EXEC3 ,NREC) ; IMPR ; 
TPOU? K:=1 ‘PAS! 1 'JUS' NREC ΕΑΓ 
"DEB?! INDI : A:ï=ALCIM=8 )+4 ; 
Sr" SURICA) tALN' ALL?! INDI ; ΙΒ. (Αλ: 
LONI : B:=ALCIM-82)+4 ; 
SI! SURICS) 'ALO' ‘ALL! LONI ; I1B,CB),: 
sit A INF! B 'ALO' ται INDY ; 
Τ:ΞΑ ; Α:ΞΒ ; ΒΞ:ΞΤ ; 
INDJ : C:=ALCJ“-8)+4 ; 
᾿ς]! σὐβ (ο) 'ALO! ALL?! NDU 
LONJ : D:=AL C(JM-8 )+4 ; 
sort SURJCDD ALO” ALL! LONJ JB. (D ).: 
εστι C 'INF'! D MALO! 'ALL?' TSL ; 
«πο ; C:=D ; D:=f | 


"VRAI! 


‘VRAI! 


; VB. CC),:= VRAI! 


t 


"VRAI! 


vs 


j ) 
TShL :fALL' SI’ SURLOSCNLOS, A, C) του! SURLOSÇCNLOS, A,D) 


ου: SURLOSCNLOS, B,C) του! SURLOS(NLOS,B,D) 
"ALO! CHGR SIN! LOAD ; | 


ve 


νο 


ος 


ὃς 


CHGR : ΙΒ. CA). :=IB.CB),¿:2JB. (0), :=J8B,(D),:= ‘FAUX! 


TALL’ INDI ; 
LOAD : PEC, CK,12).:1:=4 ; REC.CK,2),:=B ; 
REC.CK,33),:=C ; REC, (CK,4),:=D ; 

EXE C4, A,B,C,D) ; INPR } ΕΙΝ" RECTANGLES ; 


# 
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we 


$ 


900 


902 
910 


912 


10 


PAUSECI) ; 
tS}? CLECI) ALO? ALL? BEGIN } 
Puiz ISI! CLECG) 'ALO?' ΠΑΙ͂! ISIN! FAUX! ; 
POU?! Μ:ΞΟ ‘PAST 1 ‘JUS! μϑ80 ‘FAI! 
tDEB' EXLCEL#_OPAL_11@) ; IMPP / 
'POU? πι 'PAS!' 1 ουσ IN Εβρ 
'DEB! POU’! J:=14M%80 PAST 1 tJUS' 80*C(M+1) 'FAI! 
ΙΡΕΡΙ NC:=PN / 
ρου. K:z1l PAS? 1 "JUS! NLOS ‘FAI! 
DEB? Α:ΞΙ-Ι Οδ. CK, 17. ; 
B:=J-LOS,CK,27, ; Ci=LOS,. CK, 3), } 
SI! A+B ING! C ΕΤ! A-B ING! C 
ΕΤ! B-A ING! C ΕΤ) -A-B ING! C 
TALO! NC:= NON? NC FIN! ; 
"POU'K:=1 ‘PAS! 1 JUS? NREC ‘FAI! 
'SI' 1 !SUG' REC,CK,1), 'ἘΤῚ I ΤΙΝΟῚ REC,CK,2), 
"ET! J ους! REC, CK,3). ΕΤ! J ΝΟ! REC,.CK,4H), 
TALO! NC:= NON? NC ; 
ρου! K:=1 ‘PAST 1 'JUS' NCER ‘FAI! 
ΙΡΕΒΙ A:=I-CER,CK,1), ; 
B'=J-CER, (K,2), } C:=CER, CK,3), ; 
1511 AXA+BX*B INF! CC 
TALO! NC:= THON’ MC ΕΙΝ} 
"ρου: K:=1 "PAST 1 ους. NELL ‘FAI! 
DES! C:'2ELL,.C(K,37, } D:=ELL,.CK,4), : 
ASZI-ELL,CK,17), } B:zy-ELL, (K,27, ; 
1511 A/C*A/C+B/D*B/D ΠΝΕῚ 1 
*ALO! NC:= NON! NC ΕΙΝ. ; 
'SI' NC 'ALO! ΕΧχι (638) !51ΙΝ! εχι (6 U) 
ΕΤΗ POINT ; 
{5} CLECH) 'ALO' IMPR ; 
151! CLEGG) 'ALO' 
'DEB! PERF ; EXLCEZ@) ; PERF ‘FIN! 
ος]! α Ε(5) 'ALO! 
'DEB' EXECH,IM,ID } IMPR FIN! ; 
FIN LIGNE : 
EXLCE!!FRQ); IFPR ; 
ΕΙΝ RLOC ; 
EXLCES!!'FF@) ; IMPR ; 
PAUSE (7 ) ; 
"ALL! BEGIN ; 
"FINT IFINT È 


« 
5 


PAUSE (5) ; 
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PRADUCTEUR RUBAN CAE  CaB 500 


CN D rc rar κκ à D κκ κ κκ κκ κκ κκ 


1 ,40M 

1 ,OM LOPA 

LOPA 
1,0 EV25 1 νε Viry 
1 EV25 1 ο]. ViTV5GI 
1,2 ΕΝ 83 1,42 RVI 913 
1,33 X 1,43 AGER15 
1 οἷ ALELO 1 ,kh ΔΕΘ 
1,5 γ1τγος 1 15 X 
1,6 RV1 .kY13 1,46 S15V1 
1,7 ΕΝ. 1,47 RVL 59715 
1,0 X 1,48 ΑΡΜΑ ,0+ 
1,9 (1 5ΕΝ 956 19 VITV4L 
1,10 S3V1 1,50 VITV58I 
1,11 nÆVO 1,51 RV1 ,46Y13 
1,12 :1EL0 1,52 ALER15 
1,13 V1TV25 1,53 S15R3 
1,14 S#1713 1 5} ASER4PI5 κ 
1315 V1TV58Y13 1,55 ASER3NL5 
1,16 μι λος 1,56 X 
1,17 RV1 ,12Y13 1,57 Α1ΞΕΥΘ 
L 10 TIM - 1,58 ALEM ,0+ 
1,19 Α15Ν1 1,59 VLTV- 
1,20 V151V35673 1,60 VITV58I 
1,41 V15TVH ΘΙΥ3 1,61 EV(Z13 
1,22 FZ13 . 1,62 EV 26213 
1,93 RV1 22213 1,63 X 
1,2k X 2,6 ΑΡΜΑ 90 
1 «ος RV1 1222 1,65 VITVUL 
1 ,26 S15V25623 1,66 VITV58I 
1,27 ALER1523 1467 EV11713 
1,28 A1 5EV3€473 1,68 EVI5Y13 
1,29 RVL 8 1,69 VISTRS 
1,30 Θ15Υ38ι 1,70 Α15ν1 
1,31 ViSTRH LA RVI ,58"13 
1,32 FY13 l 72 EV25 - 
1 3 RVI ,32Y13 1. 73 ΕΥ 23 
1,34 i 1,74 Βν1 ,7 
1,35 A2ER15 7 X 
1,36 Χ laT6 X 
1 37 S15VI Latt X 
1,38 RV1 3215 1,78 X 
1,39 ALEM ,0+ 1 ,79 X 
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